home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / pastespr.bas < prev    next >
BASIC Source File  |  1998-04-07  |  153b  |  11 lines
  1. Rem Draw with a "brush"
  2. CLS
  3. brush = LoadSprite("Bullet")
  4. While TRUE
  5. x = MouseX
  6. y = MouseY
  7. SetSprite brush To x,y
  8. If Button Then PasteSprite brush
  9. Wend
  10.